#include <stdio.h>
#include <stdlib.h>
#include <SDL.h>
#include <SDL_main.h>
#include <SDL_image.h>
#include <string>
#include "SDL_ttf.h"
#include "SDL_thread.h"
#include "SDL_Mixer.h"
#include "SDL_gfxPrimitives.h"

#define PRODUCT_NAME_VER "WAIFUENGINE TEST 1.0"
#define DATA_DIR "DATA/"
#define SCREEN_WIDTH 640
#define SCREEN_HEIGHT 480
#define SCREEN_BPP 32
#define SCREEN_FPS 6
#define SCREEN_PERIOD (1 / SCREEN_FPS) * 1000


//The event structure
SDL_Event event;

//The font that's going to be used
TTF_Font *font = NULL;

//The color of the font
SDL_Color textColor = { 255, 255, 255 };

SDL_Surface *screen = NULL;
SDL_Surface *superImg = NULL;
SDL_Surface *superOptimizedImg = NULL;
SDL_Surface *background = NULL;
SDL_Surface *message = NULL;
SDL_Surface *upMessage = NULL;
SDL_Surface *downMessage = NULL;
SDL_Surface *leftMessage = NULL;
SDL_Surface *rightMessage = NULL;

SDL_Surface *load_image( std::string filename )
{
    //The image that's loaded
    SDL_Surface* loadedImage = NULL;

    //The optimized surface that will be used
    SDL_Surface* optimizedImage = NULL;

    //Load the image
    loadedImage = IMG_Load( filename.c_str() );

    //If the image loaded
    if( loadedImage != NULL )
    {
        //Create an optimized surface
        optimizedImage = SDL_DisplayFormat( loadedImage );

        //Free the old surface
        SDL_FreeSurface( loadedImage );

        //If the surface was optimized
        if( optimizedImage != NULL )
        {
            //Color key surface
            SDL_SetColorKey( optimizedImage, SDL_SRCCOLORKEY, SDL_MapRGB( optimizedImage->format, 0, 0xFF, 0xFF ) );
        }
    }

    //Return the optimized surface
    return optimizedImage;
}

void apply_surface( int x, int y, SDL_Surface* source, SDL_Surface* destination, SDL_Rect* clip = NULL )
{
    //Holds offsets
    SDL_Rect offset;

    //Get offsets
    offset.x = x;
    offset.y = y;

    //Blit
    SDL_BlitSurface( source, clip, destination, &offset );
}

bool init_engine(){

	//Initialize all SDL subsystems
	if( SDL_Init( SDL_INIT_EVERYTHING ) == -1 )return false;

	//Set up the screen
	screen = SDL_SetVideoMode( SCREEN_WIDTH, SCREEN_HEIGHT, SCREEN_BPP, SDL_SWSURFACE );
	if(screen == NULL)return false;
	TTF_Init();
	//Set the window caption
	SDL_WM_SetCaption( PRODUCT_NAME_VER , NULL );

	return true;
}

bool load_files()
{
    //Load the background image
    background = load_image( "DATA/kg.png" );

    //Open the font
    font = TTF_OpenFont( "DATA/nx.ttf", 28 );

    //If there was a problem in loading the background
    if( background == NULL )
    {
        return false;
    }

    //If there was an error in loading the font
    if( font == NULL )
    {
        return false;
    }

    //If everything loaded fine
    return true;
}

void clean_up()
{
    //Free the surfaces
    SDL_FreeSurface( background );
    SDL_FreeSurface( message );

    //Close the font that was used
    TTF_CloseFont( font );

    //Quit SDL_ttf
    TTF_Quit();

    //Quit SDL
    SDL_Quit();
}

int main( int argc, char* args[] )
{
    //Quit flag
    bool quit = false;

    //Initialize
    if( init_engine() == false )
    {
        return 1;
    }

    //Load the files
    if( load_files() == false )
    {
        return 1;
    }

    //Render the text
    message = TTF_RenderText_Solid( font, "Push a key, Shitbird!", textColor );
	upMessage = TTF_RenderText_Solid(font, "Up Was Pressed",textColor);
	downMessage = TTF_RenderText_Solid(font, "Down Was Pressed",textColor);
	leftMessage = TTF_RenderText_Solid(font, "Left Was Pressed",textColor);
	rightMessage = TTF_RenderText_Solid(font, "Right Was Pressed",textColor);
    //If there was an error in rendering the text
    if( message == NULL )
    {
        return 1;
    }

	if(message !=NULL){
    //Apply the images to the screen
    apply_surface( 0, 0, background, screen );
	apply_surface( (SCREEN_WIDTH - message->w)/2, (SCREEN_HEIGHT - message->h)/2, message, screen );
	
	message = NULL;
	}
    //Update the screen
    if( SDL_Flip( screen ) == -1 )
    {
        return 1;
    }
	int sleep,tick,tock = 0;
    //While the user hasn't quit
    while( quit == false )
    {
		
        //While there's events to handle
        while( SDL_PollEvent( &event ) )
        {
			if(event.type == SDL_KEYDOWN){
				switch(event.key.keysym.sym){
				case SDLK_UP: message = upMessage; break;
				case SDLK_DOWN: message = downMessage; break;
				case SDLK_LEFT: message = leftMessage; break;
				case SDLK_RIGHT: message = rightMessage; break;

				}
			}
            //If the user has Xed out the window
            if( event.type == SDL_QUIT )
            {
                //Quit the program
                quit = true;
            }
        }
  //If a message needs to be displayed
        if( message != NULL )
        {
            //Apply the background to the screen
            apply_surface( 0, 0, background, screen );

            //Apply the message centered on the screen
            apply_surface( ( SCREEN_WIDTH - message->w ) / 2, ( SCREEN_HEIGHT - message->h ) / 2, message, screen );

            //Null the surface pointer
            message = NULL;
        }
		tick = SDL_GetTicks();
        //Update the screen
        if( SDL_Flip( screen ) == -1 )
        {
            return 1;
        }
		tock = SDL_GetTicks();
		sleep = SCREEN_PERIOD - (tock - tick);
		if(sleep < 0) sleep = 0;
		SDL_Delay(sleep);

    }

    //Free surfaces and font then quit SDL_ttf and SDL
    clean_up();

    return 0;
}